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FACILITY: LANGUAGE INDEPENDENT SUPPORT 


7 ABSTRACT: 
This module contains the routine that converts h floating 
numbers to packed. 
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t d9 sn‘t Rg nt int 
MOL 15-Sep-1982 

5 = correct minor scalin 
6 - Make sure result wil 

lLongword exponent. 


P=1984 
P=1984 


if 


39:38 AX/VMS Macro v04-00 
13:02 CLIBRTL.SRCJOTSCVTHP.MAR; 1 


; Detailed Current Edit History 


n-1982 


Edit History for Version 1 of OTSCVTHP 


a 


ts there are in the exponent on the fly. 
e for seqperery Spec jeter so that 


o the: 


_ 
DG 3-A 


middle of the 


loating number. 


in previous edit. MDL 7-0ct-1982 


ove 
pr- 


reiow destination after calculating 


med 


PLL 8-Mar-1982 


-o 
aun 


m3 


o V04-00 P 
or 


L 14 
oating to Packed 16-SEP-1984 00:24:34 VAX/VMS Macr 
. 4 90:93:33 LIBRTL.SRCJOTSCVTHP.MAR; 1 


=SEP=1984 


OTSSCVTHP_RO 


66 -SBTTL DECLARATIONS 
oe : 
$ ; INCLUDE FILES: 
71 SDSCDEF 
i 
6 74 ; EXTERNAL SYMBOLS: 
8 75 -DSABL GBL ; Prevent undeclared symbols from 
00 6 ; being automatically global 
$00 78 -EXTRN OTSSCNVOUT_H ; E-format conversion 
00 79 -EXTRN LIBSSTOP 3 error halt 
4 ei -EXTRN OTSS_FATINTERR ; Fatal internal error code 
000 § 3 
000 8 
000 84 ; 
0000 85 ; MACROS: 
0000 86 ; NONE 
0000 +t 3 
0000 8 
0000 89 ; 
0000 90 ; PSECT DECLARATIONS: 
00000000 91 -PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
0000 9 USR, CON, REL, LCL, RD 
0000 9 
0000 94; 
0000 95 ; EQUATED SYMBOLS: 
0000 96 ; NONE 
0000 97 ; 
0000 98 
44 99 ; 
0 100 ; OWN STORAGE: 
0000 101; NONE 
0000 102; 


pS 


om 
=o 
“ws 
nae 
oe 
<5 
a 
=x 

Nt 


OOooooo0oo 
OOOOCOOOOOoOoO 


DOOQOOOOOoCOoCooO 
SoOoOSCoOOCoOoOSOoOoOoOoOoOoOoooo 
pelo leolelololololeololololeolo a) 


—— $$ DOOOOOSOOoOoooooooo 


WOWOT TOTS OWUQOQOOOOCoOooooooe 


DOOOOOOOSO 
SSSsosooooo ooo oooSSoSS 


em ee ee ed ed ed = dd = 8d 8 = dd = ds 
ANAM AAAI IES BB EB EEE EWAN NINA IIORONONONPONOPONONUND 2 2 2 SS OOOO 
OODWNAMNEWR CO OONAUE WR OOO NAU EWN OO ODNAUE WN (OC OONOULWN OC DONOAR 


oating to Packed og 16-SEP=1 138% 90: $$: 33 AX/VMS Macro V04-00 Page 4 
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LIBRTL REI TSCVTHP.MAR; 1 (4) 


FUNCTIONAL DESCRIPTION: 
Converts an h floating number to packed. 

CALLING SEQUENCE: 
JSB OTSSCVTHP_RO (scale.rl.v, src.rh.r, dstlen.rl.v, dst.wp.r) 
Arguments are passed in R6, R7, RB and RI. 

INPUT PARAMETERS: 


SCALE.rl.v = power of ten by which the internal 


peorvoresar ne of the source must be 
tiplied to scale the same as the 
internal representation of the dest. 
SRC. rhe The number to be converted 
DSTLEN.rl.v 
IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wp.r 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FA'TLURE 
SIDE EFFECTS: 


Destroys registers RO through R9. 


The number of digits ty the destination 


The place to store the converted number 


sembdia 34 
Le : Allocate temp space 
fant i OS) #*A'' ,#56,(SP) ; Clear temp space 


MOVH = (R?) , (SP) : Get input number 

Make a descriptor for the temporary string. 

; PUSHAB 16(sP) 3 Address = Space reserved 
MOVB CLAS §-$+7 (SP) ; Class = 
MOVB mDacen DTYPE_T,=-(SP) ; Data type. = ot Scr string 
MOV (SP) ; Length in bytes 
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0 


; Call OTSSCNVOUT. 


1F PUSHL #31 : Digits in fraction 
04 AE PUSHAB 4(SP) ; Ou ~~ string descriptor 
10 A PUSHAB Hp 4 ; Number to convert 
00000000 ' GF 9 CALLS # 5 nS ; Call conversion routine 
63 BLBC RO,20$ ; Should never fail 


find beginning of 


exponent (sign byte) 
look for sign byte (+) 


#*A'+" ,#34,28(SP) 
1C AE 22 gp 3A LOCC #*A'=" ,#34,28(SP) look for sign byte (=) — 
.. @ 20$ branch to error if we didn't find it 


save location of sign byte 
(contained in R1 after above LOCC) 


4 

$ ; Determine the number of digits in the exponent. 
4 

5 

5$: MOVL R1,8(SP) 

1 


08 BE O05 00 3A 


LOCC #*A*' ,#5,aB°8(SP) 
OC AE 51 O8 AE C3 


. look for NUL (end of string) 
SUBL3 8(SP),R1,12(SP) determine number of digits by subtracting 
Location of pegtagnne of exponent from 
location of end of exponent, and save it 
adjust for sign b 


DECL 12(SP) yte 
at this point, 12(SP) = Length of exponent 


Sete Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Se Ge 


0 
4 
0048 85 
0048 86 ; 
+t tH : Convert the exponent and correct for scale factor. 
6—E OC AE 08 BE OC AE 09 ss 89 © CVTSP 12(SP),a@B*8(SP),12(SP), (SP) ; Make packed exponent 
50 6€ OC AE 36 Ope + CVTPL 12(SP),(SP),RO ; Make longword exponent 
0088 38 ; Here must check that the result will not overflow | 
boas 9 ; the destination. The destination length (total number of | 
005 94 ; digits) minus the scale factor will 9 ve the number of digits 
005 95 3; to the left of the decimal point. If that number is greater than 
Ope 38 3; the Longword exponent, then the result WILL overflow the dest. 
54 58 56 C3 005 98 SUBL3 -R6. RB RG ; Determine num of digits on left 
54 50 01 O05C 29 CMPL RO,R4 ; Compare with longword exponent 
23 14 O05 00 BGTR 15$ : Branch if overflowed 
56 E2 A640 9E 994 8 MOVAB -30(R6)CROJ,R6 ; Correct for fraction size and scale 
Dose be ; Convert the fraction to packed. | 
1A AE 18 AE 90 0066 $ , MOVB 24(SP) ,26(SP) ; Move sign over ‘’."' | 
6— 1E€ IAAE 1€ 0O9 oe CVTSP #30 gb (SP) #30, (SP) ; Make packed fraction | 
69 58 00 6€ 56 FB 0 8 ASHP = RO, #30, (SPS,#0.RB,(R9) : Scale to destination | 
a8 0 ; (also clears RO) 
1D 7 10 BVS 10$ :; Branch if overflowed 
D6 7A 11 INCL RO ; Indicate success, RO = 1 
5E 00000040 8F CO rf ¢ 108: ADDL2 #64,SP :; Delete stack temps | 
05 ° F RSB | 
| 
50 D4 4 15 15$: CLRL RO : Indicate failure, RO = 0 | 
5E 00000040 8F CO 0086 16 ADDL2 #64,SP ; Delete stack temps 
05 008D 21 RSB | 
| 


CALLS #1,G*CIBSSTOP 3 Signal and don't return 
4° END 


B 15 
haat OPSSev FHP Ronn 7 SO Packed "OSEb=18RE 99:99:03 EMTSRTE. SRESBr¥evTAPmar:1 P29" f, 
: Come nere on failure of OTSSCNVOUT. This should never happen. 
o000serce Bi pe : : 208: PUSHL #OTSS$_FATINTERR ; OTS fatal error message 
0098334 


LE 
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Ihe working set Limit was 1050 pages. 
bytes (18 pages) of virtual memory were used to buffer the intermediate code. 
iad were 10 pages of symbol table space allocated to hold 135 non-local and 4 Local symbols. 
24 source Lines were read in Pass 1, producing 10 object records in Pass 2. 
pages of virtual memory were used to define 7 macros. 


Swern amram een se seca ee see ea} 


Macro library name Macros defined 
~S255SDUAZ8:(SYSLIBISTARLET.MLB:20 SS .. 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:OTSCVTHP/OBJ=OBJ$:OTSCVTHP MSRC$:OTSCVTHP/UPDATE=(ENHS:OTSCVTHP) 


S 
DSCSK_CLASS_S 1 
DSC$K-DTYPE “T = BOSS RO0E 
LIBSsTOP eeereeet x 
OTSSCNVOUT_H sereeees 
OTSSCVTHP_R9 00000000 RG 
OTSS_FATIATERR eteerene 
foams omewacasawenae + 
! ; Psect synopsis $ 
PSECT name Allocation PSECT No. Attributes 
- ABS . £88008 ( - ° : CT) -) NOPIC USR CON ASS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
S$ 0 NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
OTSSCODE 000098 ¢ 155. PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
@uecenensesesnsnnecsensesd 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 90 :00700 -03 00:00:01.88 
- processing 117 0:00:00.33 Shs Be eH 
s 1 135 88:85:00" se So 76 
vee table sort 9 0:00:00.1 0:00: 9-23 
Pass 2 5 00:00:00.4 00:00:02.53 
Symbol table output 3 00:00:00.0 00:00:00.02 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 i ss Bo fee Be 
Assembler run totals 345 00:00:02.10 0:00:13.19 
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